home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-01 / tx072291.zip / TXENVELP.PRG < prev    next >
Text File  |  1991-07-22  |  959b  |  31 lines
  1. *:*********************************************************************
  2. *:
  3. *:        Program: TXENVELP.PRG
  4. *:
  5. *:         System: Texas Associated Software Laser Library
  6. *:         Author: Jose E. Lopez, Jr.
  7. *:      Copyright (c) 1991, Texas Associated Software - Red Oak, TX
  8. *:
  9. *:*********************************************************************
  10.  
  11. * PRINTS ENVELOPE WITH POSTNET BAR CODES WITH ZIP+4 CODE
  12. * THE BARCODE SHOULD BE PRINTED 1/4 INCH FROM THE BOTTOM OF THE ENVELOPE
  13. * IF YOU SHOULD EXPERIENCE A PROBLEM PRINTING THE POSTNET BARCODE, BE SURE
  14. * TO CHECK THE FUNCTION RETURN CODE.
  15.  
  16. * THIS WILL PRINT AN ENVELOPE FOR YOU TO REGISTER YOUR LIBRARY
  17.  
  18. txinit()
  19. txorient("L")
  20.  
  21. txcolprint(25, 50, .T., "Texas Associated Software")
  22. txcolprint(26, 50, .F., "523 La Cresta Drive")
  23. txcolprint(27, 50, .F., "Red Oak, TX  75154-5109")
  24.  
  25. _zip_plus = "75154-5109"
  26. _ret = txpostnet(34, 70, _zip_plus)
  27.  
  28. txclear()
  29.  
  30. *: EOF: TXENVELP.PRG
  31.